﻿Imports Microsoft.VisualStudio.TestTools.UnitTesting

Imports TorneosBackEnd



'<summary>
'This is a test class for EventoNegocioTest and is intended
'to contain all EventoNegocioTest Unit Tests
'</summary>
<TestClass()> _
Public Class EventoNegocioTest


    Private testContextInstance As TestContext

    '<summary>
    'Gets or sets the test context which provides
    'information about and functionality for the current test run.
    '</summary>
    Public Property TestContext() As TestContext
        Get
            Return testContextInstance
        End Get
        Set(value As TestContext)
            testContextInstance = Value
        End Set
    End Property

#Region "Additional test attributes"
    '
    'You can use the following additional attributes as you write your tests:
    '
    'Use ClassInitialize to run code before running the first test in the class
    '<ClassInitialize()>  _
    'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
    'End Sub
    '
    'Use ClassCleanup to run code after all tests in a class have run
    '<ClassCleanup()>  _
    'Public Shared Sub MyClassCleanup()
    'End Sub
    '
    'Use TestInitialize to run code before running each test
    '<TestInitialize()>  _
    'Public Sub MyTestInitialize()
    'End Sub
    '
    'Use TestCleanup to run code after each test has run
    '<TestCleanup()>  _
    'Public Sub MyTestCleanup()
    'End Sub
    '
#End Region


    '<summary>
    'A test for insertarEvento
    '</summary>
    <TestMethod()> _
    Public Sub insertarEventoTest()
        Dim onegocio As New EventoNegocio()

        Try
            Dim modelo = onegocio.insertarEvento(5, "1", "1", "d", "02-02-05", 12, "u")
            MsgBox("Insertado")

        Catch ex As Exception

            Assert.Fail(ex.ToString())
        End Try
    End Sub
    '<TestMethod()> _
    Public Sub listarTest()
        Dim list As New EventoNegocio

        Try
            Dim modelo = list.listar()
            MsgBox(modelo.Count)

        Catch ex As Exception
            Assert.Fail(ex.ToString())
        End Try
    End Sub
End Class